リスト：LASER Ver1.0

プチコン　プログラムリスト

タイトル：LASER Ver1.0
レーザーを撃つことを目的としたものです。

Yボタンでレーザー撃てます。
Bボタンでオプション追加。
Aボタンでオプションが減ります。
Xボタンで終了するようになっていますが、画面初期化されないので意味はありません。
もちろん十字キー（スライドパッド）で移動できます。
レーザーはYボタンから手を放すと止まります。
行き当たりばったりなプログラムなうえに、まったく最適化しておりません。
ものすごくFORループな感じです。
レーザーはグラフィック画面に描いています。
そのおかげで、たくさん横に並んでもスプライトのように消えたりしません。
遅くなりますが．．．
動画
http://www.nicovideo.jp/watch/sm17220924
（訳あってニコニコ動画です。見れない人ごめんなさい）

http://www43.tok2.com/home/ogut/index.html
リスト作成に上記サイトの「PTC2HTML」を利用させていただいています。
001. ′Ｖｅｒ　１．０
002. ＣＬＥＡＲ
003. ＶＩＳＩＢＬＥ　１，１，０，０，１，１
004. ＣＬＳ：ＣＯＬＯＲ　０
005. 
006. ＯＰＭＡＸ＝２０　　′オフ゜ションノカス゛
007. 
008. ′ＬＡＳＥＲステ－タス
009. ＤＩＭ　ＬＳＴ（ＯＰＭＡＸ＋１，４）
010. ＦＯＲ　Ｉ＝０　ＴＯ　ＯＰＭＡＸ
011. 　　ＬＳＴ（Ｉ，０）＝０　　′フラク゛
012. 　　ＬＳＴ（Ｉ，１）＝０　　′ナカ゛サ
013. 　　ＬＳＴ（Ｉ，２）＝０　　′カイシＸ
014. 　　ＬＳＴ（Ｉ，３）＝０　　′カイシＹ
015. ＮＥＸＴ　Ｉ
016. 
017. ′スフ゜ライトシ゛ュンヒ゛
018. ′０：シ゛キ
019. ＤＩＭ　ＳＰＫ（１００），ＳＰＰ（１００），ＳＰＨ（１００），ＳＰＶ（１００），ＳＰＩ（１００）
020. ＤＩＭ　ＳＰＦ（１００），ＳＰＸ（１００），ＳＰＹ（１００）
021. ＦＯＲ　Ｉ＝０　ＴＯ　９９
022. 　　ＳＰＦ（Ｉ）＝０　　′０：スキッフ゜　１：シンキ　２：イト゛ウ　３：ヘンコウ　４：シュウキョ
023. ＮＥＸＴ　Ｉ
024. ′シ゛キセッテイ
025. ＳＰＫ（０）＝２５６
026. ＳＰＰ（０）＝２
027. ＳＰＨ（０）＝０
028. ＳＰＶ（０）＝０
029. ＳＰＩ（０）＝０
030. ＳＰＦ（０）＝１
031. ＳＰＸ（０）＝１００
032. ＳＰＹ（０）＝１００
033. ＳＰＫ（１）＝２５７
034. ＳＰＰ（１）＝２
035. ＳＰＨ（１）＝０
036. ＳＰＶ（１）＝０
037. ＳＰＩ（１）＝０
038. ＳＰＦ（１）＝１
039. ＳＰＸ（１）＝１１６
040. ＳＰＹ（１）＝１００
041. 
042. ＳＰＣＮＴ＝１　　′スフ゜ライトノシヨウスウ
043. 
044. ′オフ゜ション
045. ＯＰＷ＝８　　　　′オフ゜ションノウエイト
046. ＤＩＭ　ＯＰ（ＯＰＷ＊ＯＰＭＡＸ，２）　　′オフ゜ショヨウエイトテ－フ゛ル　Ｘ，Ｙ
047. ＯＰＣ＝０　　　　′ヒョウシ゛チュウノオフ゜ションスウ
048. ＦＯＲ　Ｉ＝１　ＴＯ　ＯＰＭＡＸ
049. 　ＳＰＫ（Ｉ＊２）＝２００
050. 　ＳＰＰ（Ｉ＊２）＝５
051. 　ＳＰＨ（Ｉ＊２）＝０
052. 　ＳＰＶ（Ｉ＊２）＝０
053. 　ＳＰＩ（Ｉ＊２）＝０
054. 　ＳＰＦ（Ｉ＊２）＝０
055. 　ＳＰＸ（Ｉ＊２）＝０
056. 　ＳＰＹ（Ｉ＊２）＝０
057. ＮＥＸＴ　Ｉ
058. ＳＰＣＮＴ＝ＳＰＣＮＴ＋ＯＰＭＡＸ＊２
059. 
060. ＧＯＳＵＢ　＠ＳＰＷＲＩＴＥ
061. ＡＢ＝ＦＡＬＳＲ　　′Ａホ゛タンカ゛ハナサレタカチェック
062. ＢＢ＝ＦＡＬＳＥ　　′Ａホ゛タンカ゛ハナサレタカチェック
063. 
064. ＠ＭＬＯＯＰ
065. ′ニュウリョク
066. ＸＸ＝０：ＹＹ＝０
067. ＢＴＮ＝ＢＵＴＴＯＮ（）
068. ＩＦ　ＢＴＮ　ＡＮＤ　　６４　ＧＯＴＯ　＠ＥＸＩＴ　′Ｘホ゛タン
069. ＩＦ　ＢＴＮ　ＡＮＤ　１２８　ＴＨＥＮ　ＳＨＯＴ＝１　′Ｙホ゛タン
070. ＩＦ　ＢＴＮ　ＡＮＤ　　　１　ＴＨＥＮ　ＹＹ＝－２　′ウエ
071. ＩＦ　ＢＴＮ　ＡＮＤ　　　２　ＴＨＥＮ　ＹＹ＝２　　′シタ
072. ＩＦ　ＢＴＮ　ＡＮＤ　　　４　ＴＨＥＮ　ＸＸ＝－２　′ヒタ゛リ
073. ＩＦ　ＢＴＮ　ＡＮＤ　　　８　ＴＨＥＮ　ＸＸ＝２　　′ミキ゛
074. ＩＦ　ＡＢ　ＧＯＴＯ　＠ＡＢＳＫＩＰ
075. ＩＦ　ＢＴＮ　ＡＮＤ　　１６　ＴＨＥＮ　ＯＰＡＤＤ＝－１　　′Ａホ゛タン
076. 　ＡＢ＝ＴＲＵＥ
077. ＠ＡＢＳＫＩＰ
078. ＩＦ　ＢＢ　ＧＯＴＯ　＠ＢＢＳＫＩＰ
079. ＩＦ　ＢＴＮ　ＡＮＤ　　３２　ＴＨＥＮ　ＯＰＡＤＤ＝１　　　′Ｂホ゛タン
080. 　ＢＢ＝ＴＲＵＥ
081. ＠ＢＢＳＫＩＰ
082. ＩＦ　ＸＸ！＝０　ＯＲ　ＹＹ！＝０　ＴＨＥＮ　ＧＯＳＵＢ　＠ＭＹＭＯＶＥ
083. 
084. 
085. ＩＦ　ＳＨＯＴ＝＝０　ＧＯＴＯ　＠ＳＨＯＴＳＫＩＰ
086. 　ＦＯＲ　Ｉ＝０　ＴＯ　ＯＰＣ
087. 　　ＬＳＴ（Ｉ，０）＝１
088. 　ＮＥＸＴ　Ｉ
089. 　ＧＯＳＵＢ　＠ＬＡＳＥＲ
090. 　ＳＨＯＴ＝０
091. ＠ＳＨＯＴＳＫＩＰ
092. 
093. ＩＦ　ＯＰＡＤＤ＝＝０　ＧＯＴＯ　＠ＯＰＳＫＩＰ
094. 　ＩＦ　ＯＰＡＤＤ＝＝－１　ＧＯＴＯ　＠ＯＰＣＭＩ
095. 　　′オフ゜ションツイカ
096. 　　ＩＦ　ＯＰＣ＝＝ＯＰＭＡＸ　ＧＯＴＯ　＠ＯＰＥＮＤ
097. 　　　ＯＰＣ＝ＯＰＣ＋１
098. 　　　ＯＰＸ＝ＳＰＸ（（ＯＰＣ－１）＊２）
099. 　　　ＩＦ　ＯＰＣ＝＝１　ＴＨＥＮ　ＯＰＸ＝ＯＰＸ＋４
100. 　　　ＯＰＹ＝ＳＰＹ（（ＯＰＣ－１）＊２）
101. 　　　ＦＯＲ　Ｉ＝（ＯＰＣ－１）＊ＯＰＷ　ＴＯ　（ＯＰＣ＊ＯＰＷ）－１
102. 　　　　ＯＰ（Ｉ，０）＝ＯＰＸ
103. 　　　　ＯＰ（Ｉ，１）＝ＯＰＹ
104. 　　　ＮＥＸＴ　Ｉ
105. 　　　ＳＰＸ（ＯＰＣ＊２）＝ＯＰＸ
106. 　　　ＳＰＹ（ＯＰＣ＊２）＝ＯＰＹ
107. 　　　ＳＰＦ（ＯＰＣ＊２）＝１
108. 　ＧＯＴＯ　＠ＯＰＥＮＤ
109. 　＠ＯＰＣＭＩ
110. 　　ＩＦ　ＯＰＣ＝＝０　ＧＯＴＯ　＠ＯＰＥＮＤ
111. 　　　ＳＰＦ（ＯＰＣ＊２）＝４
112. 　　　ＯＰＣ＝ＯＰＣ－１
113. 　＠ＯＰＥＮＤ
114. 　ＯＰＡＤＤ＝０
115. ＠ＯＰＳＫＩＰ
116. 
117. ＧＯＳＵＢ　＠ＳＰＷＲＩＴＥ
118. 
119. ′ホ゛タンオフチェック
120. ＩＦ　（ＢＴＮ　ＡＮＤ　１６）＝＝ＦＡＬＳＥ　ＴＨＥＮ　ＡＢ＝ＦＡＬＳＥ
121. ＩＦ　（ＢＴＮ　ＡＮＤ　３２）＝＝ＦＡＬＳＥ　ＴＨＥＮ　ＢＢ＝ＦＡＬＳＥ
122. 
123. ＷＡＩＴ　１
124. ＧＯＴＯ　＠ＭＬＯＯＰ
125. 
126. 
127. ＠ＥＸＩＴ
128. ＰＲＩＮＴ”シュウリョウ
129. ＥＮＤ
130. 
131. ＠ＭＹＭＯＶＥ
132. ′シ゛キノイト゛ウ
133. ＳＰＸ（０）＝ＳＰＸ（０）＋ＸＸ
134. ＩＦ　ＳＰＸ（０）＜０　ＴＨＥＮ　ＳＰＸ（０）＝０
135. ＩＦ　ＳＰＸ（０）＞２２３　ＴＨＥＮ　ＳＰＸ（０）＝２２３
136. ＳＰＹ（０）＝ＳＰＹ（０）＋ＹＹ
137. ＩＦ　ＳＰＹ（０）＜０　ＴＨＥＮ　ＳＰＹ（０）＝０
138. ＩＦ　ＳＰＹ（０）＞１７５　ＴＨＥＮ　ＳＰＹ（０）＝１７５
139. ＳＰＦ（０）＝２
140. ＳＰＸ（１）＝ＳＰＸ（０）＋１６
141. ＳＰＹ（１）＝ＳＰＹ（０）
142. ＳＰＦ（１）＝２
143. ′オフ゜ションイト゛ウ
144. ＩＦ　ＯＰＣ＝＝０　ＧＯＴＯ　＠ＯＰＭＶＳＫＩＰ
145. 　′オフ゜ションウエイトテ－フ゛ルヲ１ツスライト゛
146. 　ＯＰＷＯＲＫ＝ＯＰＷ＊ＯＰＣ－１
147. 　ＦＯＲ　Ｉ＝０　ＴＯ　ＯＰＷＯＲＫ－１
148. 　　ＯＰ（ＯＰＷＯＲＫ－Ｉ，０）＝ＯＰ（ＯＰＷＯＲＫ－Ｉ－１，０）
149. 　　ＯＰ（ＯＰＷＯＲＫ－Ｉ，１）＝ＯＰ（ＯＰＷＯＲＫ－Ｉ－１，１）
150. 　ＮＥＸＴ　Ｉ
151. 　ＯＰ（０，０）＝ＳＰＸ（０）＋４
152. 　ＯＰ（０，１）＝ＳＰＹ（０）
153. 　′オフ゜ツョンスフ゜ライトニハンエイ
154. 　ＦＯＲ　Ｉ＝１　ＴＯ　ＯＰＣ
155. 　　ＩＦ　ＳＰＦ（Ｉ＊２）！＝０　ＧＯＴＯ　＠ＯＰＨＳＫＩＰ
156. 　　　ＳＰＸ（Ｉ＊２）＝ＯＰ（Ｉ＊ＯＰＷ－１，０）
157. 　　　ＳＰＹ（Ｉ＊２）＝ＯＰ（Ｉ＊ＯＰＷ－１，１）
158. 　　　ＳＰＦ（Ｉ＊２）＝２
159. 　　＠ＯＰＨＳＫＩＰ
160. 　ＮＥＸＴ　Ｉ
161. ＠ＯＰＭＶＳＫＩＰ
162. ′ＧＯＳＵＢ　＠ＳＰＷＲＩＴＥ
163. ＲＥＴＵＲＮ
164. 
165. ′－－－スフ゜ライトカキカエ
166. ＠ＳＰＷＲＩＴＥ
167. ＦＯＲ　Ｊ＝０　ＴＯ　ＳＰＣＮＴ
168. 　ＳＮ＝Ｊ
169. 　ＯＮ　ＳＰＦ（Ｊ）　ＧＯＳＵＢ　＠ＳＫＩＰ，＠ＳＰＮＥＷ，＠ＳＰＭＯＶＥ，＠ＳＰＣＨＡＮＧ，＠ＳＰＤＥＬ
170. ＮＥＸＴ　Ｊ
171. ＲＥＴＵＲＮ
172. 
173. ＠ＳＫＩＰ　　′ナニモシナイ
174. ＲＥＴＵＲＮ
175. 
176. ＠ＳＰＮＥＷ
177. ′′ＰＲＩＮＴ　”ＮＥＷ　ＳＮ＝　”；ＳＮ
178. ＳＰＳＥＴ　ＳＮ，ＳＰＫ（ＳＮ），ＳＰＰ（ＳＮ），ＳＰＨ（ＳＮ），ＳＰＶ（ＳＮ），ＳＰＩ（ＳＮ）
179. ＳＰＦ（ＳＮ）＝０
180. ＧＯＳＵＢ　＠ＳＰＭＯＶＥ
181. ＲＥＴＵＲＮ
182. 
183. ＠ＳＰＭＯＶＥ
184. ′′ＰＲＩＮＴ　”ＭＯＶＥ　ＯＰＣ＝　”；ＯＰＣ
185. ＳＰＯＦＳ　ＳＮ，ＳＰＸ（ＳＮ），ＳＰＹ（ＳＮ）
186. ＳＰＦ（ＳＮ）＝０
187. ＲＥＴＵＲＮ
188. 
189. ＠ＳＰＣＨＡＮＧ
190. ＳＰＦ（ＳＮ）＝０
191. ＲＥＴＵＲＮ
192. 
193. ＠ＳＰＤＥＬ
194. ＳＰＣＬＲ　ＳＮ
195. ＳＰＦ（ＳＮ）＝０
196. ＲＥＴＵＲＮ
197. 
198. ＠ＬＡＳＥＲ
199. ＦＯＲ　Ｋ＝０　ＴＯ　ＯＰＣ
200. 　ＩＦ　ＬＳＴ（Ｋ，０）＝＝０　ＧＯＴＯ　＠ＬＡＮＥＸＴ
201. 　　′フルイレ－サ゛－ヲケス
202. 　　ＩＦ　ＬＳＴ（Ｋ，１）＝＝０　ＧＯＴＯ　＠ＬＡＳＫ０１
203. 　　　ＬＥＮＤ＝ＬＳＴ（Ｋ，２）＋ＬＳＴ（Ｋ，１）
204. 　　　ＩＦ　ＬＥＮＤ＞２５５　ＴＨＥＮ　ＬＥＮＤ＝２５５
205. 　　　ＧＬＩＮＥ　ＬＳＴ（Ｋ，２），ＬＳＴ（Ｋ，３），ＬＥＮＤ，ＬＳＴ（Ｋ，３），０
206. 　　＠ＬＡＳＫ０１
207. 　　′アタラシイレ－サ゛－
208. 　　′ナカ゛サカ゛２２０ヲコケタフ゛ンハ　スキマニナル
209. 　　ＬＳＴ（Ｋ，１）＝ＬＳＴ（Ｋ，１）＋１５
210. 　　ＬＳＴ（Ｋ，２）＝ＳＰＸ（２＊Ｋ）＋２８　　′（３２－４）
211. 　　ＩＦ　Ｋ！＝０　ＴＨＥＮ　ＬＳＴ（Ｋ，２）＝ＬＳＴ（Ｋ，２）－４
212. 　　ＬＳＴ（Ｋ，３）＝ＳＰＹ（２＊Ｋ）＋８
213. 　　ＩＦ　ＬＳＴ（Ｋ，１）＞２２０　ＴＨＥＮ　ＬＳＴ（Ｋ，２）＝ＬＳＴ（Ｋ，２）＋（ＬＳＴ（Ｋ，１）－２２０）
214. 
215. 　　ＩＦ　ＬＳＴ（Ｋ，２）＞２５５　ＴＨＥＮ　ＬＳＴ（Ｋ，０）＝０　　′カ゛メンカ゛イニテ゛タ
216. 　　ＩＦ　ＬＳＴ（Ｋ，０）＝＝０　ＴＨＥＮ　ＬＳＴ（Ｋ，１）＝０
217. 　　ＩＦ　ＬＳＴ（Ｋ，０）＝＝０　ＧＯＴＯ　＠ＬＡＮＥＸＴ
218. 
219. 　　ＬＥＮＤ＝ＬＳＴ（Ｋ，２）＋ＬＳＴ（Ｋ，１）
220. 　　ＩＦ　ＬＥＮＤ＞２５５　ＴＨＥＮ　ＬＥＮＤ＝２５５
221. 　　ＧＬＩＮＥ　ＬＳＴ（Ｋ，２），ＬＳＴ（Ｋ，３），ＬＥＮＤ，ＬＳＴ（Ｋ，３），６
222. 　＠ＬＡＮＥＸＴ
223. ＮＥＸＴ　Ｋ
224. 
225. ＲＥＴＵＲＮ
226.